home *** CD-ROM | disk | FTP | other *** search
/ How Would You Survive? / How Would You Survive (1995)(Grolier)[Mac-PC].iso / pc / vikingw.dir / 01653_Script_Cradle To Grave < prev    next >
Text File  |  1995-09-12  |  5KB  |  184 lines
  1. global gbeenclicked, gQuest
  2.  
  3. on VMummRollovers
  4.   set gbeenclicked = 0
  5.   if (not(CheckClickedStatus(gQuest))) then
  6.     if rollover(6) then
  7.       VikingCursor
  8.       repeat while rollover(6)
  9.         if (the mousedown) then
  10.           set gbeenclicked = 1
  11.         else
  12.           if gbeenclicked = 1 then
  13.             repeat while gbeenclicked = 1 and (the mouseup)
  14.               CradleToGrave
  15.             end repeat
  16.           end if
  17.         end if
  18.       end repeat
  19.     else
  20.       if rollover(7) then
  21.         VikingCursor
  22.         repeat while rollover(7)
  23.           if (the mousedown) then
  24.             set gbeenclicked = 1
  25.           else
  26.             if gbeenclicked = 1 then
  27.               puppetsprite 7, true
  28.               puppetsound "SV220101.AIF"
  29.               updatestage
  30.               wait .5
  31.               set the LocH of sprite 7 to -250
  32.               updatestage
  33.             end if
  34.           end if
  35.         end repeat
  36.       else
  37.         if rollover(10) then
  38.           ArrowCursor
  39.           repeat while rollover(10)
  40.             set the locH of sprite 11 to 420
  41.             set the locV of sprite 11 to 345
  42.             updatestage
  43.           end repeat
  44.           set the locH of sprite 11 to 999
  45.           updatestage
  46.         else
  47.           if rollover(12) then
  48.             ArrowCursor
  49.             repeat while rollover(12)
  50.               set the locH of sprite 13 to 347
  51.               set the locV of sprite 13 to 275
  52.               updatestage
  53.             end repeat
  54.             set the locH of sprite 13 to 999
  55.             updatestage
  56.           else
  57.             if rollover(14) then
  58.               ArrowCursor
  59.               repeat while rollover(14)
  60.                 set the locH of sprite 15 to 419
  61.                 set the locV of sprite 15 to 230
  62.                 updatestage
  63.               end repeat
  64.               set the locH of sprite 15 to 999
  65.               updatestage
  66.             else
  67.               if rollover(41) then
  68.                 HandCursor
  69.               else
  70.                 if rollover(42) then
  71.                   HandCursor
  72.                 else
  73.                   ArrowCursor
  74.                 end if
  75.               end if
  76.             end if
  77.           end if
  78.         end if
  79.       end if
  80.     end if
  81.   end if
  82.   RandomQuestion(gQuest)
  83. end
  84.  
  85. on CradleToGrave
  86.   ArrowCursor
  87.   puppetsprite 6, true
  88.   puppetsprite 8, true
  89.   puppetsprite 9, true
  90.   set RunThruCount = 0
  91.   set gCurrentLoc = the locV of sprite 6
  92.   set gFire1 = the castNum of sprite 8
  93.   set gFire2 = the castNum of sprite 9
  94.   repeat while RunThruCount < 3 and (the MouseUp)
  95.     puppetsound "SV402000.AIF"
  96.     
  97.     set the LocV of sprite 6 = gCurrentLoc - 3
  98.     updatestage
  99.     Wait .3
  100.     if the mousedown then
  101.       exit repeat
  102.     end if
  103.     
  104.     set the castNum of sprite 8 = gFire1 + 1
  105.     set the castNum of sprite 9 = gFire2 + 1
  106.     set the LocV of sprite 6 = gCurrentLoc - 6
  107.     updatestage
  108.     Wait .3
  109.     if the mousedown then
  110.       exit repeat
  111.     end if
  112.     
  113.     set the castNum of sprite 8 = gFire1
  114.     set the castNum of sprite 9 = gFire2 + 2
  115.     set the LocV of sprite 6 = gCurrentLoc - 10
  116.     updatestage
  117.     Wait .3
  118.     if the mousedown then
  119.       exit repeat
  120.     end if
  121.     
  122.     set the castNum of sprite 9 = gFire2 
  123.     set the LocV of sprite 6 = gCurrentLoc - 14
  124.     updatestage
  125.     Wait .3
  126.     if the mousedown then
  127.       exit repeat
  128.     end if
  129.     
  130.     set the castNum of sprite 8 = gFire1 + 1
  131.     set the castNum of sprite 9 = gFire2 + 1
  132.     set the LocV of sprite 6 = gCurrentLoc - 10
  133.     updatestage
  134.     Wait .3
  135.     if the mousedown then
  136.       exit repeat
  137.     end if
  138.     
  139.     set the castNum of sprite 8 = gFire1
  140.     set the castNum of sprite 9 = gFire2
  141.     set the LocV of sprite 6 = gCurrentLoc - 6 
  142.     updatestage
  143.     Wait .3
  144.     if the mousedown then
  145.       exit repeat
  146.     end if
  147.     
  148.     set the castNum of sprite 8 = gFire1 + 1
  149.     set the castNum of sprite 9 = gFire2 + 1 
  150.     set the LocV of sprite 6 = gCurrentLoc - 3
  151.     updatestage
  152.     wait .3
  153.     if the mousedown then
  154.       exit repeat
  155.     end if
  156.     
  157.     set the castNum of sprite 9 = gFire2 + 2 
  158.     set the LocV of sprite 6 = gCurrentLoc
  159.     updatestage
  160.     wait .3
  161.     if the mousedown then
  162.       exit repeat
  163.     end if
  164.     
  165.     set RunThruCount = RunThruCount + 1
  166.   end repeat
  167.   
  168.   set the castNum of sprite 8 = gFire1
  169.   set the castNum of sprite 9 = gFire2
  170.   set the LocV of sprite 6 = gCurrentLoc
  171.   updatestage
  172.   sound fadeOut 1, 3*60
  173.   puppetsprite 6, false
  174.   puppetsprite 8, false
  175.   puppetsprite 9, false
  176.   set gbeenclicked = 0
  177. end
  178.  
  179. on resetBoatTent
  180.   puppetsprite 7, false
  181.   set the LocH of sprite 7 to 209
  182.   set the LocV of sprite 7 to 316
  183.   updatestage
  184. end